#lang racket

(define (cont-frac n d k)
  (define (rec i)
    (if (< i k)
        (/ (n i) (+ (d i) (rec (+ i 1))))
        (/ (n i) (d i))))
  (rec 1))

(cont-frac (lambda (i) 1.0) (lambda (i) 1.0) 1000)